home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus036.dsk / SCHEDULE.MPR / SCRIPT / ApproachDoc / Schedule Display / Body / rctBackground.s (.txt) < prev    next >
Encoding:
Null Bytes Alternating  |  1995-11-10  |  5.2 KB  |  73 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Rectangle, X As Long, Y As Long, Flags As Long)
  5. Declare Sub Doubleclick(Source As Rectangle, X As Long, Y As Long, Flags As Long)
  6.  
  7. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8.  
  9. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10. Private Sub BindEvents(Byval Objectname_ As String)
  11.     Static Source As RECTANGLE
  12.     Set Source = Bind(Objectname_)
  13.     On Event Click From Source Call Click
  14.     On Event Doubleclick From Source Call Doubleclick
  15. End Sub
  16.  
  17. '++LotusScript Development Environment:2:2:Click:1:12
  18. Sub Click(Source As Rectangle, X As Long, Y As Long, Flags As Long)
  19.     Dim btn As button
  20.     Dim stime As dropdownbox
  21.     Dim rm As dropdownbox
  22.     Dim dt As fieldbox
  23.     Dim t As Double
  24.     
  25.     Const Xoffset = 936
  26.     Const Yoffset = 1641
  27.     Const Xhourspacing = 750    
  28.     Const Yroomspacing = 330
  29.     
  30.     GlobDateDisplay = source.fbxDateDisplay.text
  31.     source.txtmouseOverInfoDisplay.text = ""
  32.     source.txtmouseOverInfoDisplay2.text = ""
  33.     
  34.     If (Round(((Y-yoffset)/Yroomspacing)+.5,0) - 1) <= Ubound(rooms) And (Round(((Y-yoffset)/Yroomspacing)+.5,0) - 1) >= 0 And (Round(((X-xoffset)/Xhourspacing)+.5, 0)+7) >7 Then
  35.         t=(Round((((X-xoffset)/Xhourspacing)+.5),0))'+.5
  36.         GlobStartTime = Str$((t)+7) + ":00"
  37.         GlobRoom = rooms((Round(((Y-yoffset)/Yroomspacing)+.5,0)) - 1)
  38.         If ( isScheduled(GlobDateDisplay, GlobRoom, t+7)) Then
  39.             If Val(globStartTime) > 12 Then
  40.                 globStartTime = Str$(Val(globStartTime) - 12) + ":00 PM"
  41.             Elseif Val(globStartTime) = 12 Then
  42.                 globStartTime = globStartTime + ":00 PM"
  43.             Else
  44.                 globStartTime = globStartTime + ":00 AM"
  45.             End If
  46.             
  47.             If Val(globEndTime) > 12 Then
  48.                 globEndTime = Str$(Val(globEndTime) - 12) + ":00 PM"
  49.             Elseif Val(globEndTime) = 12 Then
  50.                 globEndTime = globEndTime + ":00 PM"
  51.             Else
  52.                 globEndTime = globEndTime + ":00 AM"
  53.             End If
  54.             source.txtmouseOverInfoDisplay.text = " Room: " + GlobRoom + "    Reserved By: " + GlobReservedBy
  55.             source.txtmouseOverInfoDisplay2.text =     " Start Time: " + GlobStartTime +"    End Time: " + GlobEndTime
  56.             
  57.         Else
  58.             If t+7 > 12 Then
  59.                 GlobStartTime = Str$((t)-5) + ":00 PM"                                        
  60.             Elseif t + 7 = 12 Then                
  61.                 GlobStartTime = Str$((t)+7) + ":00 PM"                                                            
  62.             Else
  63.                 GlobStartTime = Str$((t)+7) + ":00 AM"                        
  64.             End If
  65.             Set btn = currentdocument.reservation.body.btnDone
  66.             btn.text = "Reserve"
  67.             Set currentwindow.activeview = currentdocument.reservation
  68.         End If
  69.     End If
  70. End Sub
  71. '++LotusScript Development Environment:2:2:Doubleclick:1:12
  72. Sub Doubleclick(Source As Rectangle, X As Long, Y As Long, Flags As Long)
  73. End Sub